Namespace CNG
    Public Class Util
        Public Shared Function ListadoHabilitacionControl(ByVal ControlContenedor As String, ByVal Rol As String) As DataTable

            Dim Comando As New CAD.Util.HabilitacionControl_SELECT(CAD.BaseDatos.Conexion)
            'Dim Comando As New CAD.TipoPDV.TipoPDV_SELECT(CAD.BaseDatos.Conexion)
            Dim Tabla As New DataTable

            Comando.LoadTable(Tabla, ControlContenedor, Rol)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function

        Public Shared Function ReporteMapeo(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteMapeo(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.LoadTable(Tabla, CodigoCD, Codigo)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReporteActivosPDV(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteActivosPDV(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.LoadTable(Tabla, CodigoCD, Codigo)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function

        Public Shared Function ReporteEnvasesPDV(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteEnvasesPDV(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.LoadTable(Tabla, CodigoCD, Codigo)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReportePresupuestoMesActual(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReportePresupuestoMesActual(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, Codigo)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReporteUltimaVenta(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteUltimaVenta(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, Codigo)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReporteMaestroClientes(ByVal CodigoCD As String, ByVal CodigoUsuario As Integer, ByVal CodigoTipoRolUsuario As String) As DataTable

            Dim Comando As New CAD.Util.ReporteMaestroClientes(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, CodigoUsuario, CodigoTipoRolUsuario)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReporteListadoMapeo(ByVal CodigoCD As String, ByVal CodigoUsuario As Integer, ByVal CodigoTipoRolUsuario As String) As DataTable

            Dim Comando As New CAD.Util.ReporteListadoMapeo(CAD.BaseDatos.Conexion)

            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, CodigoUsuario, CodigoTipoRolUsuario)
            'Comando.LoadTable(Tabla)

            'MsgBox(Tabla.Rows.Count)
            Return Tabla

        End Function
        Public Shared Function ReporteDesactivacionPDV(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteDesactivacionPDV(CAD.BaseDatos.Conexion)
            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, Codigo)

            Return Tabla

        End Function
        Public Shared Function ReporteDescuentoPDV(ByVal CodigoCD As String, ByVal Codigo As Integer) As DataTable

            Dim Comando As New CAD.Util.ReporteDescuentoPDV(CAD.BaseDatos.Conexion)
            Dim Tabla As New DataTable

            Comando.Command.CommandTimeout = 0
            Comando.LoadTable(Tabla, CodigoCD, Codigo)

            Return Tabla

        End Function
    End Class


    'Namespace CNG
    '    Public Class TipoRelacionPropietarioVendedor
    '        Public Shared Function ListadoTipoRelacionPropietarioVendedor() As DataTable

    '            Dim Comando As New CAD.TipoRelacionPropietarioVendedor.TipoRelacionPropietarioVendedor_SELECT(CAD.BaseDatos.Conexion)
    '            Dim Tabla As New DataTable

    '            Comando.LoadTable(Tabla)

    '            Return Tabla

    '        End Function
    '    End Class
    'End Namespace
End Namespace
